home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GSCCMP.for < prev    next >
Text File  |  1991-04-13  |  523b  |  23 lines
  1.         SUBROUTINE GSCCMP(IX,IY,XOFF,YOFF,X,Y)
  2.         IMPLICIT NONE
  3.         REAL*4 XOFF,YOFF,X,Y,XS,YS
  4.         INTEGER IX,IY
  5. C
  6. C
  7.         INCLUDE DIGLIB$KOM:GCCPAR.PRM
  8.         INCLUDE DIGLIB$KOM:GCCPOS.PRM
  9. C
  10. C       SCALE TO PROPER SIZE
  11. C
  12.         XS = CSIZE*IX
  13.         YS = CSIZE*IY
  14. C
  15. C       ROTATE AND TRANSLATE
  16. C
  17.         X = CCOS*XS + CSIN*YS + XOFF
  18.         Y = CCOS*YS - CSIN*XS + YOFF
  19. D       WRITE(9,9999) IX, IY, X,Y
  20. D9999   FORMAT(' CMOVE TO (',I2,',',I2,') GOES TO (',F9.4,',',F9.4,')')
  21.         RETURN
  22.         END
  23.